use TestHelper;
use PlaceEntityActionTestHelper;

sub testMovementToTile{
    my $entity =  shift;
    my $map = shift;
    my ($x, $y) = (shift, shift);

    print "Probando ubicacion correcta en el mapa ($x; $y)\n";

    #print $map->tiles->[$x][$y]->contents->where($action->params->{ENTITY})."\n";
    
    if($map->tiles->[$x][$y]->contents->where($entity)){
	print "    OK\n";
    }else{
	print "--->ERROR: No se encontro en el mapa\n" ;
    }
    
}

1;
